home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / cachemon.zip / TSR_TAIL.A86 < prev   
Text File  |  1990-03-11  |  1KB  |  33 lines
  1. init:
  2.                 mov     al,b[080]               ; get the arg length
  3.                 cbw
  4.                 mov     cx,ax                   ; in CX
  5.                 mov     di,0081h                ; find first char of arg
  6.                 mov     al,' '
  7.           repne scasb
  8.                 cmp     cx,8
  9.                 jbe     l1
  10.                 mov     cx,8
  11. l1:             mov     my_name,cl
  12.                 mov     si,di
  13.                 mov     di,offset my_name[1]
  14.             rep movsb
  15.  
  16.                 call    setup_int13
  17.  
  18.                 mov     es,w[002ch]             ; get the environment segment
  19.                 mov     ah,049h
  20.                 int     021                     ; and release it
  21.  
  22.                 mov     dx,Hi_mom
  23.                 mov     ah,09
  24.                 int     021
  25.  
  26.                 mov     dx,offset init
  27.                 int     027
  28. Hi_mom:
  29.                 db      'CACHEMON copyright (c) 1990 D.J. Murdoch',0d,0a
  30.                 db      'TSR disk access monitor installed.',0d,0a,0d,0a,'$'
  31.  
  32.  
  33.